* lisp/progmodes/grep.el (rgrep): Add "-type d".

Fixes: debbugs:9414

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12b9ce29630633067c2e9a97a092f02a9be7ef0a..7a922e002d7613acc51531a9242acf65abd8698a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-05  Oleksandr Gavenko  <gavenkoa@gmail.com>  (tiny change)
+
+       * progmodes/grep.el (rgrep): Add "-type d" (bug#9414).
+
 2011-09-05  Juri Linkov  <juri@jurta.org>
 
        * progmodes/grep.el (grep-process-setup): Fix comments (bug#8084).

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 8cb3c314faf7131fe0c61a9446afb8a34bdd2b2f..de46dc19169edbfa0c5992cf964e8cfc849aaa89 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -989,7 +989,8 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
                      dir
                      (concat
                       (and grep-find-ignored-directories
-                           (concat (shell-quote-argument "(")
+                           (concat "-type d "
+                                   (shell-quote-argument "(")
                                    ;; we should use shell-quote-argument here
                                    " -path "
                                    (mapconcat